home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / budget.arc / FUTURE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-26  |  896 b   |  37 lines
  1. 10  CLS
  2. 20  KEY OFF
  3. 30  PRINT "FUTURE VALUE OF AN INVESTMENT"
  4. 40  DEFDBL A-Z:DEFINT N,J
  5. 50  DEF FNA(X)=INT(X*100+0.5)/100
  6. 60  PRINT
  7. 70  PRINT "  NUMBER OF CASH FLOWS ";
  8. 80  INPUT N
  9. 90  PRINT "       GROWTH RATE (%) ";
  10. 100  INPUT R
  11. 110  R=R/100
  12. 120  PRINT
  13. 130  T=0
  14. 140  PRINT "(ENTER INFLOWS AS POSITIVE,";
  15. 150  PRINT " OUTFLOWS AS NEGATIVE)"
  16. 160  FOR J = 1 TO N
  17. 170  IF J>1 THEN 200
  18. 180  PRINT "AMOUNT OF CASH FLOW ";
  19. 190  GOTO 210
  20. 200  PRINT "                    ";
  21. 210  PRINT J;
  22. 220  INPUT C
  23. 230  REM  ADD FUTURE VALUES OF EACH YEAR BASED ON RATE OF R
  24. 240  T=T+FNA(C*(1+R)^(N-J))
  25. 250  NEXT J
  26. 260  PRINT
  27. 270  PRINT "FUTURE VALUE AT END OF PERIOD";N;"=";
  28. 280  PRINT USING "$$,###,###,###.##"; T
  29. 290  REM  RESTART OF END PROGRAM?
  30. 300  PRINT
  31. 310  PRINT "DO YOU WANT TO RE-RUN THIS PROGRAM";
  32. 320  PRINT " WITH NEW DATA (Y/N)?"
  33. 330  Z$=INKEY$:IF Z$="" THEN 330
  34. 340  IF Z$="Y" OR Z$="y" THEN 60
  35. 350  IF Z$<>"N" AND Z$<>"n" THEN 310
  36. 360  END
  37.